home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGIALS / PTUTOR2B.LZH / TEMPCONV.PAS < prev    next >
Pascal/Delphi Source File  |  1988-01-15  |  1KB  |  29 lines
  1.                                 (* Chapter 4 - Program 4 *)
  2. (**************************************************************)
  3. (*       Centigrade to Farenheight temperature conversion     *)
  4. (*                                                            *)
  5. (*  This program generates a list of temperature conversions  *)
  6. (*  with a note at the freezing point of water, and another   *)
  7. (*  note at the boiling point of water.                       *)
  8. (**************************************************************)
  9.  
  10. program Temperature_Conversion;
  11.  
  12. var Count,Centigrade,Farenheight : integer;
  13.  
  14. begin
  15.    Writeln('Centigrade to farenheight temperature table');
  16.    Writeln;
  17.    for Count := -2 to 12 do begin
  18.       Centigrade := 10*Count;
  19.       Farenheight := 32 + Centigrade*9 div 5;
  20.       Write('  C =',Centigrade:5);
  21.       Write('    F =',Farenheight:5);
  22.       if Centigrade = 0 then
  23.          Write('  Freezing point of water');
  24.       if Centigrade = 100 then
  25.          Write('  Boiling point of water');
  26.       Writeln;
  27.    end;
  28. end.
  29.